home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
mdfjobd.arc
/
MDFLIBL.RPG
< prev
next >
Wrap
Text File
|
1991-12-04
|
17KB
|
249 lines
000100900405 FMDFLIBLDCF E WORKSTN
000200860116 E LIBL 275 1 Parameter
000300900404 E LIBA 10 1 Parameter
000400900406 E SAV 13 1 Parameter
000500851111 E ARR 25 13 A Seqnbr/lib
000600851111 C *ENTRY PLIST Parm list
000700851111 C PARM LIBL Lib list
000800851111 C PARM PGMTYP 4 Prog type
000900860116 C PARM JOBDNM JOBD name
001000860107 C PARM RTNCDE 8 Return code
001100860107 C* Initialize
001200860107 C MOVE 'NOCHG 'RTNCDE Assm no chg
001300851231 C PGMTYP COMP 'JOBD' 80 If JOBD typ
001400851111 C MOVE *BLANKS BLANK3 3 Blank 3 byts
001500851111 C REPEAT TAG REPEAT
001600851111 C MOVE '010' SEQ1 Prime seq 1
001700851111 C MOVE '020' SEQ2
001800851111 C MOVE '030' SEQ3
001900851111 C MOVE '040' SEQ4
002000851111 C MOVE '050' SEQ5
002100851111 C MOVE '060' SEQ6
002200851111 C MOVE '070' SEQ7
002300851111 C MOVE '080' SEQ8
002400851111 C MOVE '090' SEQ9
002500851111 C MOVE '100' SEQ10
002600851111 C MOVE '110' SEQ11
002700851111 C MOVE '120' SEQ12
002800851111 C MOVE '130' SEQ13
002900851111 C MOVE '140' SEQ14
003000851111 C MOVE '150' SEQ15
003100851111 C MOVE '160' SEQ16
003200851111 C MOVE '170' SEQ17
003300851111 C MOVE '180' SEQ18
003400851111 C MOVE '190' SEQ19
003500851111 C MOVE '200' SEQ20
003600851111 C MOVE '210' SEQ21
003700851111 C MOVE '220' SEQ22
003800851111 C MOVE '230' SEQ23
003900851111 C MOVE '240' SEQ24
004000851111 C MOVE '250' SEQ25
004100900405 C Z-ADD0 X 30 Lib count
004200900405 C Z-ADD1 Y 30 Lib count
004300851111 C LOOP TAG LOOP
004400900405 C EXSR CLEAR
004500900405 C Z-ADD1 Z 30 Bump inx
004600860929 C Y CABGE276 DISPLY If at end
004700900404 C LIBL,Y DOUEQ' '
004800900404 C MOVE LIBL,Y LIBA,Z Extract lib
004900900406 C ADD 1 Y
005000900406 C ADD 1 Z
005100900404 C END
005200900404 C MOVEALIBA LIB 10
005300851111 C LIB CABEQ*BLANK DISPLY If blank
005400900405 C ADD 1 X Lib count
005500851111 C EXSR MV2DSP Exsr MV2DSP
005600900406 C ADD 1 Y
005700851111 C GOTO LOOP Goto LOOP
005800851111 C* Display the libraries
005900851111 C DISPLY TAG DISPLY
006000851111 C EXFMTPROMPT Prompt
006100851111 C* Check for CF1
006200900408 C 91 MOVE 'CF3 'RTNCDE If CF1
006300851111 C 91 GOTO END If CF1
006400851111 C* Move libraries and sequence numbers to the array
006500851111 C MOVE LIB1 ARR,1 Move to ARR
006600000000 C MOVE LIB2 ARR,2
006700000000 C MOVE LIB3 ARR,3
006800000000 C MOVE LIB4 ARR,4
006900000000 C MOVE LIB5 ARR,5
007000000000 C MOVE LIB6 ARR,6
007100000000 C MOVE LIB7 ARR,7
007200000000 C MOVE LIB8 ARR,8
007300000000 C MOVE LIB9 ARR,9
007400000000 C MOVE LIB10 ARR,10
007500000000 C MOVE LIB11 ARR,11
007600000000 C MOVE LIB12 ARR,12
007700000000 C MOVE LIB13 ARR,13
007800000000 C MOVE LIB14 ARR,14
007900000000 C MOVE LIB15 ARR,15
008000000000 C MOVE LIB16 ARR,16
008100900408 C MOVE LIB17 ARR,17
008200000000 C MOVE LIB18 ARR,18
008300000000 C MOVE LIB19 ARR,19
008400000000 C MOVE LIB20 ARR,20
008500000000 C MOVE LIB21 ARR,21
008600000000 C MOVE LIB22 ARR,22
008700000000 C MOVE LIB23 ARR,23
008800000000 C MOVE LIB24 ARR,24
008900000000 C MOVE LIB25 ARR,25
009000851111 C MOVELSEQ1 ARR,1 Movel to ARR
009100000000 C MOVELSEQ2 ARR,2
009200000000 C MOVELSEQ3 ARR,3
009300000000 C MOVELSEQ4 ARR,4
009400000000 C MOVELSEQ5 ARR,5
009500000000 C MOVELSEQ6 ARR,6
009600000000 C MOVELSEQ7 ARR,7
009700000000 C MOVELSEQ8 ARR,8
009800000000 C MOVELSEQ9 ARR,9
009900000000 C MOVELSEQ10 ARR,10
010000000000 C MOVELSEQ11 ARR,11
010100000000 C MOVELSEQ12 ARR,12
010200000000 C MOVELSEQ13 ARR,13
010300000000 C MOVELSEQ14 ARR,14
010400000000 C MOVELSEQ15 ARR,15
010500000000 C MOVELSEQ16 ARR,16
010600000000 C MOVELSEQ17 ARR,17
010700000000 C MOVELSEQ18 ARR,18
010800851111 C MOVELSEQ19 ARR,19
010900851111 C MOVELSEQ20 ARR,20
011000851111 C MOVELSEQ21 ARR,21
011100851111 C MOVELSEQ22 ARR,22
011200851111 C MOVELSEQ23 ARR,23
011300851111 C MOVELSEQ24 ARR,24
011400851111 C MOVELSEQ25 ARR,25
011500900408 C MOVELSEQ1 ARR,1 Movel to ARR
011600900408 C MOVELSEQ2 ARR,2
011700900408 C MOVELSEQ3 ARR,3
011800900408 C MOVELSEQ4 ARR,4
011900900408 C MOVELSEQ5 ARR,5
012000900408 C MOVELSEQ6 ARR,6
012100900408 C MOVELSEQ7 ARR,7
012200900408 C MOVELSEQ8 ARR,8
012300900408 C MOVELSEQ9 ARR,9
012400900408 C MOVELSEQ10 ARR,10
012500900408 C MOVELSEQ11 ARR,11
012600900408 C MOVELSEQ12 ARR,12
012700900408 C MOVELSEQ13 ARR,13
012800900408 C MOVELSEQ14 ARR,14
012900900408 C MOVELSEQ15 ARR,15
013000900408 C MOVELSEQ16 ARR,16
013100900408 C MOVELSEQ17 ARR,17
013200900408 C MOVELSEQ18 ARR,18
013300900408 C MOVELSEQ19 ARR,19
013400900408 C MOVELSEQ20 ARR,20
013500900408 C MOVELSEQ21 ARR,21
013600900408 C MOVELSEQ22 ARR,22
013700900408 C MOVELSEQ23 ARR,23
013800900408 C MOVELSEQ24 ARR,24
013900900408 C MOVELSEQ25 ARR,25
014000851111 C* Place blanks in SEQ field if lib is blank
014100851111 C DO 25 X Do 25 times
014200851111 C MOVE ARR,X SAV10 10 Move to save
014300851111 C SAV10 IFEQ *BLANK If blank lib
014400851111 C MOVELBLANK3 ARR,X Blank seqnbr
014500851111 C END If blank lib
014600851111 C END Do 25 times
014700851111 C* Sort the array of libraries
014800900408 C SORTAARR Sort ARR
014900851111 C* Initialize
015000900408 C Z-ADD1 Y
015100851111 C MOVE *BLANK LIBL Blank array
015200851111 C* If SEQ is not blank, place the lib into the LIBL array
015300851111 C DO 25 X Do 25 times
015400851111 C MOVELARR,X SAV3 3 Movel seqnbr
015500900406 C *BLANKS IFNE SAV3 If not blank
015600900406 C MOVEAARR,X SAV Move lib
015700900406 C Z-ADD4 C
015800900408 C SAV,C DOUEQ' '
015900900406 C MOVE SAV,C LIBL,Y
016000900406 C ADD 1 Y
016100900406 C ADD 1 C 30
016200900406 C END
016300900408 C ADD 1 Y
016400851111 C END If not blank
016500900408 C EXSR CLEARS
016600851111 C END Do 25 times
016700851231 C* If chg occurred, then move blanks to display and start over
016800851231 C 95 DO Chg occurd
016900860107 C MOVE 'GOOD 'RTNCDE Some change
017000851231 C EXSR BLKDSP Exsr BLKDSP
017100851231 C GOTO REPEAT Goto REPEAT
017200851231 C END Chg occurd
017300851111 C* End of program
017400851111 C END TAG END
017500851111 C SETON LR Set LR
017600851111 C RETRN Return
017700900408 *
017800900405 C CLEAR BEGSR
017900900406 C DO 10 A 30
018000900405 C MOVEA' ' LIBA,A
018100900405 C END
018200900405 C ENDSR
018300900408 *
018400900408 C CLEARS BEGSR
018500900408 C DO 10 A 30
018600900408 C MOVEA' ' SAV,A
018700900408 C END
018800900408 C ENDSR
018900900405 C* Blank out display of library fields for change indicator
019000851111 C BLKDSP BEGSR BLKDSP subr
019100851111 C MOVE *BLANK LIB Blank lib
019200851111 C DO 25 X Do 25 times
019300851111 C EXSR MV2DSP Exsr MV2DSP
019400851111 C END Do 25 times
019500851111 C ENDSR BLKDSP subr
019600851111 C* Move lib values to display fields depending on the count field
019700851111 C MV2DSP BEGSR MV2DSP subr
019800851111 C X COMP 1 20 If X=1
019900851111 C 20 MOVE LIB LIB1 Mv to Lib 1
020000851111 C X COMP 2 20
020100851111 C 20 MOVE LIB LIB2
020200851111 C X COMP 3 20
020300851111 C 20 MOVE LIB LIB3
020400851111 C X COMP 4 20
020500851111 C 20 MOVE LIB LIB4
020600851111 C X COMP 5 20
020700851111 C 20 MOVE LIB LIB5
020800851111 C X COMP 6 20
020900851111 C 20 MOVE LIB LIB6
021000851111 C X COMP 7 20
021100851111 C 20 MOVE LIB LIB7
021200851111 C X COMP 8 20
021300851111 C 20 MOVE LIB LIB8
021400851111 C X COMP 9 20
021500851111 C 20 MOVE LIB LIB9
021600851111 C X COMP 10 20
021700851111 C 20 MOVE LIB LIB10
021800851111 C X COMP 11 20
021900851111 C 20 MOVE LIB LIB11
022000851111 C X COMP 12 20
022100851111 C 20 MOVE LIB LIB12
022200851111 C X COMP 13 20
022300851111 C 20 MOVE LIB LIB13
022400851111 C X COMP 14 20
022500851111 C 20 MOVE LIB LIB14
022600851111 C X COMP 15 20
022700851111 C 20 MOVE LIB LIB15
022800851111 C X COMP 16 20
022900851111 C 20 MOVE LIB LIB16
023000851111 C X COMP 17 20
023100851111 C 20 MOVE LIB LIB17
023200851111 C X COMP 18 20
023300851111 C 20 MOVE LIB LIB18
023400851111 C X COMP 19 20
023500851111 C 20 MOVE LIB LIB19
023600851111 C X COMP 20 20
023700851111 C 20 MOVE LIB LIB20
023800851111 C X COMP 21 20
023900851111 C 20 MOVE LIB LIB21
024000851111 C X COMP 22 20
024100851111 C 20 MOVE LIB LIB22
024200851111 C X COMP 23 20
024300851111 C 20 MOVE LIB LIB23
024400851111 C X COMP 24 20
024500851111 C 20 MOVE LIB LIB24
024600851111 C X COMP 25 20
024700851111 C 20 MOVE LIB LIB25
024800851111 C ENDSR MV2DSP